home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Essentials / Developer Essentials Nov 90 / Apple II / Programming & Utilities / MPW IIgs Interfaces / PIIGSIncludes / Shell.p < prev    next >
Encoding:
Text File  |  1990-04-03  |  1.6 KB  |  47 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: Shell.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-90
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT SHELL;
  11. INTERFACE
  12. USES TYPES;
  13.  
  14. TYPE
  15. GetLInfoPBPtr = ^GetLInfoPB;
  16. GetLInfoPB = PACKED RECORD
  17.     sfile : Ptr; { address of source file name }
  18.     dfile : Ptr; { address of output file name }
  19.     parms : Ptr; { address of parameter list }
  20.     istring : Ptr; { address of language specific input string }
  21.     merr : Byte; { max error level allowed }
  22.     merrf : Byte; { max error level found }
  23.     lops : Byte; { operations flag }
  24.     kflag : Byte; { KEEP flag }
  25.     mflags : Longint; { set of letters selected with '-' }
  26.     pflags : Longint; { set of letters selected with '+' }
  27.     org : Longint; { abs start address of non-relloc load file }
  28. END;
  29. PROCEDURE DIRECTION ( device:Integer; direct:Ptr)  ; C;
  30. PROCEDURE ERROR ( errorCode:Integer)  ; C;
  31. PROCEDURE EXECUTE ( flag:Integer; comm:Ptr)  ; C;
  32. FUNCTION  GET_LANG  : Integer ; C;
  33. PROCEDURE GET_LINFO (VAR PblockPtr:GetLInfoPB)  ; C;
  34. PROCEDURE GET_VAR ( varname:Ptr;VAR value:string)  ; C;
  35. PROCEDURE INIT_WILDCARD ( initFile:Ptr; flags:Integer)  ; C;
  36. FUNCTION  NEXT_WILDCARD ( nextFile:Ptr) : Ptr ; C;
  37. PROCEDURE READ_INDEXED ( varname:Ptr; value:Ptr; index:Integer)  ; C;
  38. PROCEDURE REDIRECT ( device:Integer; app:Integer; theFile:Ptr)  ; C;
  39. PROCEDURE SET_LANG ( language:Integer)  ; C;
  40. PROCEDURE SET_LINFO ( PblockPtr:GetLInfoPB)  ; C;
  41. PROCEDURE SET_VAR ( varname:Ptr; value:Ptr)  ; C;
  42. FUNCTION  STOP  : Integer ; C;
  43. FUNCTION  VERSION  : Longint ; C;
  44. PROCEDURE WRITE_CONSOLE ( ochar:Integer)  ; C;
  45. IMPLEMENTATION
  46. END.
  47.